﻿Public Class clsSysParam

    Public Function selectAgvSwitch() As DataTable
        Dim szSql As String = "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "agv_switch")
        Return dt
    End Function

    Public Function selectAgvWebSite() As DataTable
        Dim szSql As String = "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "agv_website")
        Return dt
    End Function

    Public Function selectMesSwitch() As DataTable
        Dim szSql As String = "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "mes_switch")
        Return dt
    End Function


    Public Function selectMesWebSite() As DataTable
        Dim szSql As String = "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "mes_website")
        Return dt
    End Function

End Class
